home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP NET Rehberi Eylül 1998.iso / ftp / iftp21 / FTPHUB.ZIP / FTPHUB.FTP < prev   
Text File  |  1997-05-23  |  2KB  |  76 lines
  1. ;---------------------------------------------------------
  2. ; iFTP script: ftphub.ftp
  3. ; (c) copyright 1997 Santronics Software
  4. ;
  5. ; This script is for Platinum Xpress Fidonet sysops using
  6. ; FTP HUB operations at Pennsylvania Online (paonline).
  7. ; The script will upload all files in the export directory
  8. ; into their appropiate directories at the ftp site, and
  9. ; will download all remote inbound files into the local
  10. ; import directory.  This iFTP script is called from the
  11. ; FTPHUB.BAT which prepares the export files and processes
  12. ; all import files.
  13. ;
  14. ;---------------------------------------------------------
  15.  
  16.   log logging into FTP site.....
  17.   open ftpsite
  18.   if not success goto error
  19.  
  20. ;----------------------------------------------------------
  21. ;create busy flag
  22. ;----------------------------------------------------------
  23.  
  24.   log Creating Busy Flag....
  25.   WriteFile ftp:/mailrun.bsy
  26.   if not success goto error
  27.  
  28. ;----------------------------------------------------------
  29. ; check for local files to send to ftp site
  30. ;----------------------------------------------------------
  31. LABEL step1
  32.  
  33.   log Step 1: Check for local files to send...
  34.   if not exist export\*.* goto step2
  35.   move export\*.* ftp:/incoming
  36.   if not success goto error
  37.   goto step2
  38.  
  39. ;----------------------------------------------------------
  40. ; check for remote fido files to download
  41. ;----------------------------------------------------------
  42. LABEL step2
  43.  
  44.   log Step 2: Check for remote FTN files to receive....
  45.   if not exist ftp:/out goto step3
  46.   move ftp:/out/*.* import
  47.   if not success goto error
  48.   goto step3
  49.  
  50. ;----------------------------------------------------------
  51. ; check for remote internet files to download
  52. ;----------------------------------------------------------
  53. LABEL step3
  54.  
  55.   log Step 3: Check for remote internet files to receive....
  56.   if not exist ftp:/usenet goto success
  57.   move ftp:/usenet/*.* import
  58.   if not success goto error
  59.   goto success
  60.  
  61. ;---------------------------------------------------------------
  62. LABEL success
  63.   log Successful session!
  64.   goto end
  65.  
  66. ;---------------------------------------------------------------
  67. LABEL error
  68.   WriteError
  69.   goto end
  70.  
  71. ;---------------------------------------------------------------
  72. LABEL end
  73.   log Cleanup: Delete Remote busy file..
  74.   if exist ftp:/mailrun.bsy then del ftp:/mailrun.bsy
  75.   close
  76.